﻿Public Class OrderPreviewModel
    Public Property OrderID As String
    Public Property OrderTyp As String
    Public Property CustomerName As String
    Public Property CustomerID As String
    Public Property Date_ As String
    Public Property Value As Money

    Public Overrides Function Equals(obj As Object) As Boolean
        Try
            Dim item As OrderPreviewModel = obj
            If item.OrderID = OrderID AndAlso item.OrderTyp = OrderTyp Then
                Return True
            Else
                Return False
            End If
        Catch : Return False : End Try
    End Function
End Class
